ＷＩＣＳコンパイラ
―――――――――――――――――――――――――――――――――――――――
Ｉ／Ｏ　１９８１年　１１月号掲載
ＭＺ−８０

［Ｓｏｕｒｃｅ］　ＷＩＣＳプログラム
マシン語　０Ａ０００Ｈ−０ＢＦＦＦＨ

起動方法
ＷＩＣＳを起動してからロード
―――――――――――――――――――――――――――――――――――――――
今月号では、ＷＩＣＳコンパイラの全リストを公開します。
ＷＩＣＳコンパイラはやはりＷＩＣＳ自身で書かれており、
かなりのレベルまで最適化を行なうので、
従来ならアセンブラでないと不可能であった仕事も、
コンパイラが代役を果たすことができるようになりました。


　　・−−−−−−−−−−−−−−・
　／　　　　コンパイラの概要　　　　＼
・−−−−−−−−−−−−−−−−−−・
本コンパイラは、ＷＩＣＳのソース・プログラムを読み込んで
Ｚ８０アブソリュート・オブジェクト・コードを直接、生成するものです。
『ＷＩＣＳソース・プログラムを読み込む』と言っても、
実際はメモリ上にあるソース・プログラムを
配列ポインタによって読ませているだけです。
コンパイラの大きさはソース・リストで
約１４Ｋバイト（６００行ほど）、
オブツェクトになった場合は約７Ｋバイトの小さなものです。
先ほど、このコンパイラはＷＩＣＳで記述されている、
と言いましたが、いくらインタープリタを速くしても、
複雑なコンパイル作業をインタープリタにより行なうのは
非常に時間がかかるので、
一度、自分（コンパイラのソース）自身を
インタープリタ・モードでコンパイルして、
Ｚ８０のオブジェクトにしてしまいます。
そうすると、コンパイル作業を非常に高速化することができます。
このように（アセンブラでなく）コンパイラで、
コンパイラを作成することを『コンパイラ・コンパイラ』
と呼んでいます（非常に活かややこしい）。
できあかったコンパイラのオブジェクト（以後、単にコンパイラと言う）は
自分自身（すなわち、６００行にわたるコンパイラ・ソース）を
すべてコンパイルするのにわずか３０秒しかかかりません
（２ＭＨｚ　Ｚ８０の場合）。
なお、コンパイラしたオブジェクトは、
ＷＩＣＳランタイム・パッケージに依存して走ります。
また、現在のバージョンではランタイム内にワーク・エリアがあり
ＲＯＭ化できませんが
コンパイル・オブジェクトはＲＯＭ化可能であり
（ただし　変数分離の必要がある）、
ＰＲＩＮＴ文のメッセージ以外は
通常のＺ８０マシン・コードなので
逆アセンブルやリロケータにかけることもできます。


　　　・−−−−−−−−−−−−・
　　／　コンパイラの行なう　　　　＼
　／　　最適化について　　　　　　　＼
・−−−−−−−−−−−−−−−−−−・
たとえばアセンブリ言語を使ってプログラムを作る場合、
できるだけプログラムを短かく、
かつ速くしようと努力するのが普通です
（プログラムは、通常、短かくすればそれだけ速くなります。
　もちろん例外もありますが）。
たとえば、ポインタを１つ先へ進める場合、
「加算」を行なわずにインクリメント命令を置きます。
あるいは、レジスタを２倍にする場合、
「乗算」を行なわず、自分に自分を加える加算命令を置きます。
いずれも後者の方が、よりコンパクトで、しかも速いからです。
上に述べたような最適化は、
ローカルな（局所的）最適化と呼ばれているものです。
これに対してグローバルな（大局的）最適化は次のようなものです。
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　１０　ＦＯＲ　Ｉ＝１　Ｔ０　１００　　　　　　　　　　　　　　｜
｜　２０　Ｊ＝１０：Ｋ＝２０　　　　　　　　　　　　　　　　　　　｜
｜　３０　Ａ＝Ｊ＊Ｋ＋Ｉ　　　　　　　　　　　　　　　　　　　　　｜
｜　４０　ＮＥＸＴ　　　　　　　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
このプログラムではＦＯＲ〜ＮＥＸＴループの中に、
Ｊ、Ｋという変化しない変数があり、
また、いつも同じ答になるＪ＊Ｋを
毎回行なうことになっています。
そこでグローバルな最適化を行なうコンパイラは
Ｊ、Ｋの代入文とＪ＊Ｋをループの外へ出し、
次のように変形してしまいます。
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　　　　Ｊ＝１０：Ｋ＝２０　　　　　　　　　　　　　　　　　　　｜
｜　　　　ｔ＝Ｊ＊Ｋ　　　　（ｔはコンパイラが作り出した変数）　　｜
｜　１０　ＦＯＲ　Ｉ＝１　Ｔ０　１００　　　　　　　　　　　　　　｜
｜　３０　Ａ＝ｔ＋Ｉ　　　　　　　　　　　　　　　　　　　　　　　｜
｜　４０　ＮＥＸＴ　　　　　　　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
つまり、グローバルな最適化はプログラムの構造自体変えてしまいます。
このことは、最適化が副作用をもたらす危険性をはらんでいます。
どういうことかというと、ループ内にある関数が、
たとえばＳＩＮ（０．１）のようなものであれば、
ループ外に出すのは問題となることはないのですが、
ＰＥＥＫ（＄Ｅ０００）のようなものは、引用するたびに
変わる危険があるからです。
実際上、グローバルな最適化というのは、
大型機の場合でも、行なうかどうかを
ユーザーが指定するようになっているものもあるほど、
慎重にやらなければいけないのです。
あるいは、ソース・プログラムの段階で、
人間が行なった方が、より好ましいと言えるでしょう。
ＷＩＣＳコンパイラでは、グローバルな最適化は、
アルゴリスムが複雑になるため、行なっていません。
ですからソース・プログラムで一見してムダとわかるような
プログラムは避けてください。
一方、ローカルな最適化はかなりのレベルまで行なっています。
こればかりは、いくらソース・プログラムをムダなく作っても関係ないので、
コンパイラ側か行なわなければなりません。


　　　・−−−−−−−−−−−−・
　　／　ＷＩＣＳでおこなって　　　＼
　／　　いる最適化について　　　　　＼
・−−−−−−−−−−−−−−−−−−・
プログラマーは、コンパイラがどのように
最適化を行なうかについて知識をもっていれば、
より効率の良いプログラムを作ることが可能になります。
そこで、ＷＩＣＳコンパイラの最適化機構について一応説明します。
最適化機構は大きく分けて、
　(１)式の展開時の最適化
　(２)直前に参照された変数の参照省略
　(３)ＩＦ文中の判断の最適化
　(４)相対分岐化
の４つがあります。

　(１)は、一般的に、式の展開を最適に行なう手法です。
　たとえば、Ａ＝Ｂ＋１を展開してみます。
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　リスト１　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　　ＨＬ，（ＶＡＲ．Ｂ）−・；ＶＡＲ．Ｂは変数Ｂの格納アドレス。　｜
｜　ＰＵＳＨ　ＨＬ　　　　　　　　　｜ＤＥレジスタに右辺第２項の評価値を　　｜
｜　ＬＤ　　　ＨＬ，１　　　　　　　｜入れる。ただし，ＨＬレジスタを壊し　　｜
｜　ＥＸ　　　ＤＥ，ＨＬ　　　　　−・てはいけない。　　　　　　　　　　　　｜
｜　ＰＯＰ　　ＨＬ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＡＤＤ　　ＨＬ，ＤＥ　　　　　；加算　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　（ＶＡＲ．Ａ），ＨＬ　；Ａに代入　　　　　　　　　　　　　　　　｜
｜−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−｜
｜　リスト２　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　ＨＬ，（ＶＡＲ．Ｂ）　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　ＤＥ，１　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＡＤＤ　ＨＬ，ＤＥ　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　（ＶＡＲ．Ａ），ＨＬ　　　　　　　　　　　　　　　　　　　　　　　｜
｜−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−｜
｜　リスト３　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　ＨＬ，（ＶＡＲ．Ｂ）　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＩＮＣ　ＨＬ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　　（ＶＡＲ．Ａ），ＨＬ　　　　　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
リスト１は、一般的な手法で、“＋”という２項演算子の左項を
ＨＬレジスタに、右項をＤＥレジスタにそれぞれ評価値を入れ、
加算して、変数Ａに代入する操作をそのまま展開したものです。
ところが、右項（１）の評価を行なうのに、
ＨＬレジスタを使わないでやる
（ＤＥレジスタにそのまま１を入れる）方法が存在するので、
ＰＵＳＨ、ＰＯＰではさまれた部分を別の命令に置き換えて、
リスト２のようになります
（ここで、右項が、乗算を含む複数の項であったりすると、
　リスト２に置き換えることはできません）。
さらに、±３までの定数を加える（あるいは引く）操作は、
しかるべきインクリメント（あるいはデクリメント）命令に置き換えて
（リスト３）プログラムの効率を上げます
（リスト３が最終的なオブジェクトです）。

(２)はどういうことかというと
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　　１０　Ａ＝Ａ＋１：Ｂ＝Ａ　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
のようなプログラムは、
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　リスト４　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　ＨＬ，（ＶＡＲ．Ａ）　　　　　　　　　　　　　　　　　　｜
｜　ＩＮＣ　ＨＬ　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　（ＶＡＲ．Ａ），ＨＬ　　　　　　　　　　　　　　　　　　｜
｜　；　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　ＬＤ　ＨＬ，（ＶＡＲ．Ａ）；このＬＤ命令はムダです。　　　　　｜
｜　ＬＤ　（ＶＡＲ．Ｂ），ＨＬ　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
のように展開されますが、
４行目のＬＤ命令は、その一つ前の命令が
ＨＬの内容が（ＶＡＲ．Ａ）に等しいことを保障しているので、
無駄になっています。
したがってＷＩＣＳコンパイラは４行目のＬＤを省略します。
しかし、
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　１０　Ａ＝Ａ＋１　　　　　　　　　　　　　　　　　　　　　　　｜
｜　２０　Ｂ＝Ａ　　　　　　　　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
と、２行に分かれている場合は話が別です（省略しません）。

(３)ＩＦ文中の最適化。
ＩＦ文では、条件式を、一般的な式評価と同じ方法で評価します。
その評価値が“０”ならば“偽”、“０”以外ならば“真”とみなして
ＴＨＥＮ以下を実行するのです。
したがって、「＝」、「＜＞」、「＞」、「＜」などの関係演算子は
“０”（偽）が“１”（真）のいずれかの値をとるようになっており、
ＨＬとＤＥを比較して“０”か“１”を
ＨＬレジスタに返すサブルーチンが呼ばれる構造になっています。
条件式がＡＮＤやＯＲで複雑化している場合は
そのままにしかなりませんが、
単純な場合（ＩＦ　Ａ＝０など）は次の例のように最適化します。

(４)の相対分岐化は、
分岐命令が−１２８〜＋１２７バイトでとどく範間内に分岐する命令を見つけて、
自動的に柏対分岐命令に置き換えるものです。
そうでないものは１バイト多い絶対アドレス分岐命令になります。
絶対アドレス分岐はＣＰＵサイクルで１０クロック、
相対分岐は条件成立で１２クロック、不成立で７クロック
（１クロックは２ＭＨｚ　Ｚ８０で０．５μ秒に当る）要し、
相対化を行なってもほとんど速くなることはないのですが、
プログラム・サイズを縮めることができます。
ただし、そのためにＰＡＳＳが２つ増えて４ＰＡＳＳになってしまうので、
コンパイルする前にコンパイラは、
オペレータに２ＰＡＳＳか４ＰＡＳＳかを尋ねることにしました。
当然ながら２ＰＡＳＳのときは相対化は行ないません。
そのほかでは、ＦＯＲ〜ＮＥＸＴ文で、ＳＴＥＰを省略した場合、
制御変数に増分１を加えるところがインクリメントになったり、
またマイナスの付いた定数は負のサブルーチンを呼ばず
コンパイルする時点で負に変換したり、
あるいは定数を引く代わりに、
定数を２の補数にして加算命令に置き替えるなど、
細かい点をあげるときりがありません。

・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　例１　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　１０　ＩＦ　Ａ＝０　ＧＯＴＯ　１０　　　　　　　　　　　　｜
｜　Ｌ１０：　ＬＤ　ＨＬ，（ＶＡＲ．Ａ）　　　　　　　　　　　　　　｜
｜　　　　　　ＬＤ　Ａ，Ｌ　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＯＲ　Ｈ　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＪＲ　Ｚ，Ｌ１０　　　　　　　　　　　　　　　　　　　｜
｜　例２　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　２０　ＩＦ　Ｂ＝”＊”　ＲＥＴＵＲＮ　　　　　　　　　　　　｜
｜　Ｌ２０：　ＬＤ　ＨＬ，（ＶＡＲ．Ｂ）　　　　　　　　　　　　　　｜
｜　　　　　　ＬＤ　Ａ，Ｌ　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＳＵＢ　Ａ，＄２Ａ（＄２Ａは”＊”のＡＳＣＩＩコード）｜
｜　　　　　　ＯＲ　Ｈ　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＲＥＴ　Ｚ　　　　　　　　　　　　　　　　　　　　　　｜
｜　例３　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　３０　ＩＦ　Ｓ［０］＜＞０　ＲＥＴＵＲＮ　　　　　　　　　　｜
｜　Ｌ３０：　ＬＤ　ＨＬ，（ＶＡＲ．Ｓ）　　　　　　　　　　　　　　｜
｜　　　　　　ＬＤ　Ａ，（ＨＬ）　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＯＲ　　Ａ　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　ＲＥＴ　ＮＺ　　　　　　　　　　　　　　　　　　　　　｜
｜　注）条件式直後にＧＯＴＯあるいはＲＥＴＵＲＮを書くと　　　　　　｜
｜　　　Ｚ８０マシン語のＪＰ（あるいはＪＲ）、　　　　　　　　　　　｜
｜　　　ＲＥＴ命令に変換されます。　　　　　　　　　　　　　　　　　｜
｜　　　ところが、ＴＨＥＮを入れると、　　　　　　　　　　　　　　　｜
｜　　　条件式不成立時に次の行ヘジャンプする分岐命令が　　　　　　　｜
｜　　　必ず生成され、そのあとでＴＨＥＮ以降が通常どおり　　　　　　｜
｜　　　展開されます。　　　　　　　　　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・

　表１　ＷＩＣＳメモリ・マップ（ＭＺ−８０Ｋ／Ｃ版）
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜  0000・―――――――――・                                      ｜
｜　    ｜#### ROM #########｜                                      ｜
｜      ｜#### SP-1002 #####｜　・−$1200 ｲﾝﾀﾌﾟﾘﾀ　ｺｰﾙﾄﾞ･ｽﾀｰﾄ       ｜
｜  1000｜―――――――――｜−｜                                  ｜
｜  1200｜―――――――――｜　・−$1203 ｲﾝﾀﾌﾟﾘﾀ　ﾎｯﾄ･ｽﾀｰﾄ         ｜
｜      ｜WICSﾗﾝﾀｲﾑ･ﾊﾟｯｹｰｼﾞ:｜      $1206 ﾗﾝﾀｲﾑ･ﾓﾆﾀ                 ｜
｜  1E00｜―――――――――｜                                      ｜
｜      ｜::::::::::::::::::｜                                      ｜
｜      ｜:::WICSｲﾝﾀｰﾌﾟﾘﾀ:::｜                                      ｜
｜      ｜::::::::::::::::::｜                                      ｜
｜  3400｜―――――――――｜                                      ｜
｜      ｜ｲﾝﾀｰﾌﾟﾘﾀ用ﾜｰｸ･ｴﾘｱ ｜                                      ｜
｜  4000｜―――――――――｜●$1200〜$1DFFまでのﾗﾝﾀｲﾑ･            ｜
｜      ｜                  ｜  ﾊﾟｯｹｰｼﾞは必ず必要です。             ｜
｜      ｜                  ｜●ｺﾝﾊﾟｲﾗ(ｵﾌﾞｼﾞｪｸﾄ)のﾜｰｸ･ｴﾘｱ           ｜
｜      ｜↓ﾕｰｻﾞｰ用         ｜  として$400〜$4000までを             ｜
｜      ｜  ﾃｷｽﾄ,ｵﾌﾞｼﾞｪｸﾄ   ｜  使うことができる（なぜな            ｜
｜      ｜  ﾜｰｸ･ｴﾘｱ         ｜  らｺﾝﾊﾟｲﾙ中はｲﾝﾀｰﾌﾟﾘﾀ                ｜
｜  8000｜                  ｜  は不要）。                          ｜
｜      ｜                  ｜●ﾕｰｻﾞｰﾌﾟﾛｸﾞﾗﾑを$1E00〜               ｜
｜      ｜                  ｜  から作成すればｺﾝﾊﾟｸﾄな独立          ｜
｜      ｜                  ｜  ｵﾌﾞｼﾞｪｸﾄ(ﾗﾝﾀｲﾑを含ませる)           ｜
｜  A000｜―――――――――｜  作成が可能です。                    ｜
｜      ｜::::WICSｺﾝﾊﾟｲﾗ::::｜  その場合、ｵｰﾄ･ｽﾀｰﾄは$1E00でなく、   ｜
｜      ｜::::(ｵﾌﾞｼﾞｪｸﾄ)::::｜  $1200とした方が良い                 ｜
｜  C000｜―――――――――｜  (IYﾚｼﾞｽﾀを初期化して$1E00へ         ｜
｜      ｜   ﾜｰｸ･ｴﾘｱなど    ｜  跳ぶようになっている)。             ｜
｜  D000｜―――――――――｜                                      ｜
｜      ｜    VIDEO RAM     ｜                                      ｜
｜  E000｜―――――――――｜                                      ｜
｜      ｜                  ｜                                      ｜
｜      ｜       I/O        ｜                                      ｜
｜  FFFF・―――――――――・                                      ｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・


　　　・−−−−−−−−−−−−・
　　／　ＷＩＣＳコンパイラを　　　＼
　／　　走らせるにあたって　　　　　＼
・−−−−−−−−−−−−−−−−−−・
まず、先月号で発表したＷＩＣＳインタープリタおよび
ランタイム・パッケージを完全にデバッグしてください。
そして今回発表すつリストをインタープリタのエディタ
で打ち込んでくいださい。
一応、念のために言っておきますが、
今回発表するコンパイラ・リストは
ＭＺ−８０ＣまたはＭＺ−８０Ｋ２（メモリは４８ＫＢあることが望ましい）の
ＷＩＣＳインタープリタ上で動作するものです。
間違ってもＰＣ−８００１や、シャープＢＡＳＩＣ上で
打ち込まないでください。
無駄な努力になります。
月並みですが、打ち込んだら一応テープにセーブしておきます。
さて、走らせ方は簡単です。「ＲＵＮ」と打つと
ソース・プログラム番地、オブジェクト・プログラム番地
（これがわからない人はいないでしょうね）、
次にワーク・エリアを尋ねてきます。
ワーク・エリアはコンパイル作業時に各種テーブル作成領域として必要ですが
コンパイルが終了すれば不要になります。
目安としてソース１０ＫＢに対し２ＫＢ程の大きさが必要と思ってください。
要するに空きエリアを適当に（＄Ｃ０００など）指定してやってください。
次に、アドレス表を表示するかどうか尋ねてくるので、ＹかＮで答えます。
さらに、ＰＡＳＳを２ＰＡＳＳにするか４ＰＡＳＳにするかを尋ねてきます。
これも２か４のどちらかを入力します。
ここまで入力すればあとはコンパイラがやってくれます。
コンパイルが無車終了すれば「ＣＯＭＰＩＬＥ　ＯＫ！」と表示され、
オブジェクトの大きさと番地、変数表が順に表示されコンパイルを終了します。
ソース・プログラムにエラーがあると、
しかるべきエラーメッセージを出してコンパイルを中止します。
ただし、コンパイラの打ち込みミスでバグがあると、
それ以外の異常動作が起こるかもしれません。
操作の一例としてコンパイラ自身を
＄Ａ０００番地に生成させる例をあげておきます。
整数型とは言うものの、やはり高級言語は扱いやすいですね。
何といってもメンテナンスや変更がアセンブラに比べ非常に楽です。
現在、多くのマイコン内蔵制御機器のプログラム開発は
大半がアセンブリ言語を使っていると聞きますが、
プログラムがたまってくるとこんどは保守や仕様変更などで
開発と同じぐらい手間がかかります。
したがって、何らかの高級言語を使っていれば、
プログラムの保守に要する時間はかなり減らすことができるでしょう。
もちろん、開発も楽になります。
私たちはＢＡＳＩＣと文法的にコンパチブルな
整数型コンパイラを開発することで
問題解決を図ろうとしたわけです。
もちろん、制御と一口でいっても多種多様ですから、
たとえばアセンブラ数１０ステップで事足りればそれでよいし、
ＢＡＳＩＣインタープリタで間に合う低速処理ならば
ＢＡＳＩＣでよいと思います。
しかし、アセンブラの高速性と複雑な処理という
２条件を満たす必要のある場合、
このコンパイラは力を発揮するでしょう。
いまのところ、このコンパイラはゲーム・プログラムの開発と、
そのほか３和音自動演奏プログラムなどの開発などに使っていますが、
現時点でも制御用マイコンにランタイムごとＲＯＭ化するのは、
多少、システムを書き換えるだけで可能です。
今後の課題としては、割り込みを記述できるようにすることと、
限定的な形で実数を扱かえるようにすることです。



表２　コンパイラのエラー・メッセージ
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜　メッセージ　｜　　　　　　意　　　　　味　　　　　　｜
｜−−−−−−−＋−−−−−−−−−−−−−−−−−−−｜
｜SYNTAX ERROR  ｜文法上の誤り。                        ｜
｜−−−−−−−＋−−−−−−−−−−−−−−−−−−−｜
｜UNDEF LINE NO.｜GOTO,GOSUBの飛び先に当る行がない。    ｜
｜−−−−−−−＋−−−−−−−−−−−−−−−−−−−｜
｜TOO LONG,.THEN｜THEN以降が長すぎる(128ﾊﾞｲﾄを超えた)。 ｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・


表３　コンパイラの構造
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜ 行番号 ｜　　　　　　　意　　　　　　味　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜100-490 ｜  メイン・ルーチン　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    500 ｜  スペース読み飛ばし　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    540 ｜  ランタイム・ライブラリ・コール生成　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    570 ｜  単なるコール命令命生成　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    600 ｜  中間コードかどうかチェック　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    640 ｜  飛び先行番号を捜がす。　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    700 ｜  式の最適化　　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    800 ｜  変数をＨＬにロードする　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜    840 ｜  ＨＬを変数にストアする　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   1000 ｜  １パス処理　　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   1140 ｜  １行処理　　　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   1190 ｜  １ステップ処理　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   1230 ｜  代入文　　　　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   2000 ｜  ステートメントの各処理　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   5000 ｜  式評価一ＨＬレジスタ　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   6000 ｜  項評価→ＨＬレジスタ　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   7000 ｜  関数　　　　　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜   8000 ｜  変数アドレス管理　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜  10000 ｜  テーブル表示　　　　　　　　　　　　　　　｜
｜−−−−＋−−−−−−−−−−−−−−−−−−−−−−｜
｜  14000 ｜  エラー・メッセージ　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・


　表４　コンパイラで使用した主な変数
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜変数名｜　　　　　　　　意　　　　　味　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜SRC   ｜ソース・プログラム先頭アドレス　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜OBJ   ｜オブジェクト・プログラム先頭アドレス　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜WKG   ｜ワーク・エリア・アドレス　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜DSPSW ｜テーブル表示を行なう→１　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜DSW   ｜２ＰＡＳＳ→１、４ＰＡＳＳ→０　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜LIB   ｜ライブラリ、先頭アドレス　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜ERN   ｜エラーの種類　　　　　　　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜PASS  ｜パスの回数１〜２または１〜４まで変化する　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜S     ｜ソース・プログラム・ポインタ　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜B     ｜オブジェクト生成ポインタ　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜OPT   ｜最適化により、定数をロードしたかどうかのフラグ｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜FSTK  ｜ＦＯＲ〜ＮＥＸＴ生成スタック　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜TABLE ｜行番号対オブジェクト番地ルックアップ・テーブル｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜VTBL  ｜変数名管理テーブル　　　　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜OLDLET｜最後に行なわれた代入命令のアドレス　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜OLDVAR｜最後に行なわれた代入命令が扱かった変数名　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜CAL   ｜ＣＡＬＬ命令のオベランド　　　　　　　　　　　｜
｜−−−＋−−−−−−−−−−−−−−−−−−−−−−−｜
｜VA    ｜変数の実アドレス　　　　　　　　　　　　　　　｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−・

コンパイラ自身をコンパイルした例
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・
｜--- WICS COMPILER VER 1.2 ---                                             ｜
｜                                                                          ｜
｜SOURCE PROGRAM ADRS:$4000                                                 ｜
｜OBJECT PROGRAM ADRS:$A000                                                 ｜
｜WORKING AREA   ADRS:$C000                                                 ｜
｜ADDRESS TABLE(Y/N) N                                                      ｜
｜PASS   (2/4) 4                                                            ｜
｜>PASS -  1                                                                ｜
｜                                                                          ｜
｜>PASS -  2                                                                ｜
｜                                                                          ｜
｜>PASS -  3                                                                ｜
｜                                                                          ｜
｜>PASS -  4                                                                ｜
｜                                                                          ｜
｜  --- COMPLETE ! ---                                                      ｜
｜OBJECT SIZE : 7244  ($A000-$BC4B)                                         ｜
｜                                                                          ｜
｜  --- VARlABLES ---                                                       ｜
｜BC4C:SRC            BC4E:PR4            BC50:OBJ            BC52:WKG      ｜
｜BC54:DSPSW          BC56:PSW            BC58:LIB            BC5A:ERN      ｜
｜BC5C:PASS           BC5E:A              BC60:S              BC62:CAL      ｜
｜BC64:B              BC66:JA             BC68:T2             BC6A:TABLE    ｜
｜BC6C:HL             BC6E:T              BC70:OPT            BC72:B1       ｜
｜BC74:OLDLET         BC76:OLDVAR         BC78:VA             BC7A:FSTK     ｜
｜BC7C:VTBL           BC7E:VTBLEND        BC80:LNO            BC82:BEND     ｜
｜BC84:IXB            BCB6:ATDAT          BC88:OPI            BC8A:JIF      ｜
｜BC8C:IXF            BC8E:OP             BC90:B2             BC92:SR       ｜
｜BC94:RELFLG         BC96:BM             BC98:S1             BC9A:V1       ｜
｜BC9C:VNO            BC9E:MATCH          BCA0:VF                           ｜
｜                                                                          ｜
・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・